﻿Imports DTO
Imports BUS
Public Class frmThemKhuVuc

    Public maKV As String
    Public TenKV As String
    Public GhiChu As String
    Public MaTT As Integer

    Public kt As Integer = 0

    Private Sub SimpleButton2_Click(sender As Object, e As EventArgs) Handles btnDong.Click
        Me.Close()
    End Sub

    Private Sub btnLuu_Click(sender As Object, e As EventArgs) Handles btnLuu.Click
        If kt = 1 Then
            Dim KhuVucDTO As New KhuVucDTO
            KhuVucDTO.MaKhuVuc = txtThemMaKV.Text.Trim()
            KhuVucDTO.TenKhuVuc = txtThemTenKV.Text.Trim()
            KhuVucDTO.GhiChu = txtThemGhiChu.Text.Trim()
            If chkConQuanLy.Checked = True Then
                KhuVucDTO.MaTrangThai = 1
            Else
                KhuVucDTO.MaTrangThai = 0
            End If
            If KhuVucBUS.CapNhapKhuVuc(KhuVucDTO) Then
                DevExpress.XtraEditors.XtraMessageBox.Show("Cập nhập thành công Khu Vực", "Thành Công", MessageBoxButtons.OK, MessageBoxIcon.Information)
                'HeThongBUS.themNhatKy(frmMain.maND, "Danh Mục", "Cập nhật", "Khu vực")
            Else
                DevExpress.XtraEditors.XtraMessageBox.Show("Bạn chưa nhập tên khu vực vui lòng nhập tên khu vực", "Lỗi", MessageBoxButtons.OK, MessageBoxIcon.Error)
            End If
        Else
            Dim KhuVucDTO As New KhuVucDTO
            KhuVucDTO.TenKhuVuc = txtThemTenKV.Text.Trim()
            KhuVucDTO.GhiChu = txtThemGhiChu.Text.Trim()
            If chkConQuanLy.Checked = True Then
                KhuVucDTO.MaTrangThai = 1
            Else
                KhuVucDTO.MaTrangThai = 0
            End If
            If KhuVucBUS.KiemTra_ThemKhuVuc(KhuVucDTO) Then
                DevExpress.XtraEditors.XtraMessageBox.Show("Bạn đã thêm thành công", "Thông Tin", MessageBoxButtons.OK, MessageBoxIcon.Information)
                Dim nd As New NguoiDungDTO
                'MessageBox.Show(nd.MaNguoiDung)
                'HeThongBUS.themNhatKy(frmMain.maND, "Danh Mục", "Thêm", "Khu vực")
            Else
                DevExpress.XtraEditors.XtraMessageBox.Show("Bạn chưa nhập tên khu vực vui lòng nhập tên khu vực", "Lỗi", MessageBoxButtons.OK, MessageBoxIcon.Error)
            End If
        End If
    End Sub

    'Public Delegate Sub LayDuLieuUC(maKV As String, tenKV As String, ghiChu As String, maTT As Integer)

    Private Sub frmThemKhuVuc_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        chkConQuanLy.Checked = True

        If kt = 1 Then
            txtThemMaKV.Text = maKV
            txtThemTenKV.Text = TenKV
            txtThemGhiChu.Text = GhiChu
            If MaTT = 1 Then
                chkConQuanLy.Checked = True
            Else
                chkConQuanLy.Checked = False
            End If
        End If
    End Sub
End Class